home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 65.zip
/
BS1 part 65
/
Prof Draw 3.0 disk 1.adf
/
install_pdraw
< prev
next >
Wrap
Text File
|
1992-07-10
|
12KB
|
380 lines
;**************************************************
; Script to Install Professional Draw 3.0
;
; This installer utility program assumes that the
; AmigaDos command "CD" is in the shells search path.
;
; This program will generate a script customized
; to the users particular system by asking a set of
; questions. It writes this script to the file:
; "ram:install_script" then executes it.
;
; It then copies the Clip Art to the system.
;
; Copyright ©1992 QUARTEX!! Inc.
;**************************************************
(set rexx_size 0)
(set clip_size 0)
;**************************************************
; See if this is actually an update, and if so be
; sure they want program in same place
;**************************************************
(set is_update 0)
(set pdraw_dest (getassign "PDraw" "a"))
(copyfiles (source "PDraw3.0:lzx") (dest "ram:") (nogauge))
(if pdraw_dest
(if
(askbool
(prompt
"Your current copy of Professional Draw appears to be located "
"in the drawer named \"" pdraw_dest "\". Do you want to update "
"(over-write) this version?")
(help
"The installer has determined that you may already have a "
"copy of PDraw on your system. If this is wrong or if you "
"want Professional Draw 3.0 installed elsewhere answer NO; "
"otherwise, select YES.")
(default 1)
)
(set is_update -1) ; if user wants in same place
(set pdraw_dest "")
)
)
;**************************************************
; Get new Home for program
;**************************************************
(if (= pdraw_dest "")
(set pdraw_dest
(askdir
(prompt
"Select the drawer where you would like Professional Draw 3.0 "
"installed. If you need a new drawer click on the "
"\"Make New Drawer...\" button and follow the directions."
"Please click on help for more information.")
(help
"The Program \"PDraw\" and the files \"PANTONE_data.bin\" "
"will be copied to this drawer. This is also the default "
"home for the \"PDrawFonts\" sub-directory and the auxilliary "
"utility programs. CGFonts will also be created here if it "
"does not currently exist.\n\n"
"Please note that this installation procedure differs from "
"previous procedures in that it will NOT automatically generate "
"a \"Pdraw\" drawer for you.")
(default @default-dest)
)
)
)
;**************************************************
; Open first installation disk
;**************************************************
(askdisk
(prompt
"Please insert the disk labeled \"Disk_1\".")
(help
"Professional Draw ,all associated data files and auxilliary "
"programmes will be dearchived from this disk into your system.")
(dest "PDraw3.0")
)
;**************************************************
; at this point we have a valid destination, so we tell installer where
; the application will end up so the exit page will be correct -- also,
; the installation log file (if any) will be copied to the destination
;**************************************************
(set @default-dest pdraw_dest)
; (set pdraw_size 507776+7786+13146) ; pdraw+PANTONE+cg_update
; (if (= (exists (tackon pdraw_dest "pdraw")) 1)
; (set pdraw_size pdraw_size - (getsize (tackon pdraw_dest "pdraw")))
; )
; (set cg_size 75156) ; PDFontEngine3.0
; (set font_size 18881) ; pdpsprlg
; (set lib_size 40352)
(set cg_dest (getassign "CGFonts" "a"))
(if (= cg_dest "")
(
(set cg_dest (tackon pdraw_dest "CGFonts"))
(startup
"PDraw"
(prompt
"I am going to add a new assign for \"CGFonts:\" "
"to your startup sequence file.")
(help
"Professional Draw needs this assign for CG-type "
"fonts to work properly.")
(command "Assign CGFonts: \"" cg_dest "\"\n"))
)
)
(set font_dest (getassign "PDrawFonts"))
(if (= font_dest "") (set font_dest (tackon pdraw_dest "PDrawFonts")))
(set data_dest (tackon font_dest "Data"))
(makedir pdraw_dest (infos))
(if (<> (exists cg_dest) 2) (makedir cg_dest))
(if (<> (exists font_dest) 2) (makedir font_dest))
(if (<> (exists data_dest) 2) (makedir data_dest))
(makeassign "CGFonts" cg_dest)
(textfile
(dest "ram:install_script")
(append "cd " pdraw_dest "\n")
(append "ram:lzx -m x PDraw3.0:pdraw_prg.lzh * \n")
(append "cd " cg_dest "\n")
(append "ram:lzx -m x PDraw3.0:pdraw_CG.lzh * \n")
(append "cd " data_dest "\n")
(append "ram:lzx -m x PDraw3.0:pdraw_dat.lzh * \n")
(append "cd libs: \n")
(append "ram:lzx -m x PDraw3.0:pdraw_glb.lzh * \n")
)
;**************************************************
; Copy Genies
;**************************************************
(set rexx_dest (getassign "Rexx" "a"))
(if (= rexx_dest "")
(if (askbool
(prompt
"Couldn't find \"Rexx:\" Should I install Genies anyhow?")
(help
"I have made the assumption that ARexx is NOT currently"
"installed on your system. If you are planning to install"
"ARexx in the future and you want the functionallity of"
"Professional Draw Genies then answer YES otherwise"
"answer NO.")
(default 1)
)
(set rexx_dest
(askdir
(prompt "Where do you want the Genies installed?")
(help @askdir-help)
(default "S:")
)
)
(set rexx_dest "")
)
)
(if (<> rexx_dest "")
(
; (set lib_size lib_size+19468)
; (set rexx_size 100000)
(if (<> (exists rexx_dest) 2) (makedir rexx_dest))
(textfile
(dest "ram:install_script")
(include "ram:install_script")
(append "cd " rexx_dest "\n")
(append "ram:lzx -m x PDraw3.0:pdraw_rex.lzh * \n")
(append "cd libs:\n")
(append "ram:lzx -m x PDraw3.0:pdraw_xlb.lzh * \n")
)
)
)
;**************************************************
; Copy PDraw Fonts
;**************************************************
(if (<> (exists (tackon font_dest "Times.pdfont")) 1)
(
; (set font_size 75910 + font_size)
(textfile
(dest "ram:install_script")
(include "ram:install_script")
(append "cd " font_dest "\n")
(append "ram:lzx -m x PDraw3.0:pdraw_fnt.lzh Times.pdfont \n")
)
)
)
(if (<> (exists (tackon font_dest "Triumvirate.pdfont")) 1)
(
; (set font_size 63304 + font_size)
(textfile
(dest "ram:install_script")
(include "ram:install_script")
(append "cd " font_dest "\n")
(append "ram:lzx -m x PDraw3.0:pdraw_fnt.lzh Triumvirate.pdfont\n")
)
)
)
;**************************************************
; Copy The Artical Editor
;**************************************************
; (set ae_dest 0)
; (if rexx_dest
; (set ae_dest
; (askchoice
; (prompt
; "Should I install Artical Editor?")
; (help
; "If you don't have PPage or you have an old version "
; "of Artical Editor then answer Install, if you already have"
; "is answer Got it, otherwise answer Cancel.")
; (choices "Cancel" "Got it" "Install")
; (default 2)
; )
; )
; )
;
;
; (if (= ae_dest 2)
; (
; (set ae_dest
; (askdir
; (prompt "Where do you want Artical Editor installed?")
; (help @askdir-help)
; (default pdraw_dest)
; )
; )
; (if (<> (exists ae_dest) 2) (makedir ae_dest))
; (textfile
; (dest "ram:install_script")
; (include "ram:install_script")
; (append "cd " ae_dest "\n")
; (append "ram:lzx -m x PDraw3.0:pdraw_ae.lzh * \n")
; )
; )
; (if (= ae_dest 1)
; (set ae_dest
; (pathonly
; (askfile
; (prompt "Where is Artical Editor?"
; "Please select the Artical Editor Program to "
; "run when editting GENIES.")
; (help @askdir-help)
; (default pdraw_dest)
; )
; )
; )
; (set ae_dest "")
; )
; )
;**************************************************
; Copy The Support programs
;**************************************************
(set trace_opts
(askoptions
(prompt
"Which of the following auxilliary programs and data do "
"you want me to install?")
(choices "Trace" "FontManager" "ClipMap" "Structured Clip Art")
(help
"TRACE: used to generate clips from IFF bitmaped images. "
"FONTMAN: converts Adobe type 1 fonts to CG format. "
"CLIPMAP: generates IFF bitmaped images from clips. ")
)
)
(if (<> trace_opts 0)
(
(set aux (cat "cd " pdraw_dest "\n"))
(if (AND trace_opts 1)
(
; (set pdraw_size pdraw_size+53006)
(set aux (cat aux "ram:lzx -m x PDraw3.0:pdraw_tce.lzh * \n"))
)
)
(if (AND trace_opts 2)
(
; (set pdraw_size pdraw_size+195800)
(makedir (tackon pdraw_dest "fntman_modules") (infos))
(set aux (cat aux "ram:lzx -mr x PDraw3.0:pdraw_fmn.lzh * \n"))
(set aux (cat aux "cd " (tackon pdraw_dest "fntman_modules \n")))
(set aux (cat aux "ram:lzx -mr x PDraw3.0:pdraw_fmm.lzh * \n"))
)
)
(textfile
(dest "ram:install_script")
(include "ram:install_script")
(append aux)
)
(if (AND trace_opts 12)
(set clip_dest
(askdir
(prompt
"Select the drawer where you would like the Clip art "
"installed. If you need a new drawer click on the "
"\"Make New Drawer...\" button and follow the directions.")
(help
"Clips and the ClipMap utility will be copied here.")
(default (tackon pdraw_dest "Clips"))
)
)
)
)
)
;**************************************************
; Do the install from the first disk
;**************************************************
(working "Please wait while installing files.")
(execute "ram:install_script")
(delete "ram:install_script")
(delete "ram:lzx")
;**************************************************
; Open second installation disk
;**************************************************
(if (AND trace_opts 12)
(
(askdisk
(prompt
"Please insert the disk labeled \"Disk_2\".")
(help
"Clips and the ClipMap utility will be copied from this disk "
"into your system.")
(dest "Clips3.0")
)
(working "Please wait while installing files.")
(makedir clip_dest (infos))
(if (AND trace_opts 8)
(copyfiles (source "Clips3.0:") (dest clip_dest) (all) (nogauge))
(if (AND trace_opts 4)
(copyfiles (source "Clips3.0:ClipMap")(dest clip_dest)(nogauge))
)
)
)
)
;**************************************************
; modify .ini file
;**************************************************
(if (= ae_dest "") (set ae_dest "Ram:"))
(if (= rexx_dest "") (set rexx_dest "s:"))
(textfile
(dest "s:PDraw.INI")
(append "FE "cg_dest"\n")
(append "GE "rexx_dest"\n")
(append "PMS "pdraw_dest"\n")
(append "FNT "font_dest"\n")
(append "PR "data_dest"\n")
(append "PD "pdraw_dest"\n")
)
(execute (tackon pdraw_dest "CG_Update"))
(exit)